home *** CD-ROM | disk | FTP | other *** search
/ Electronic Clipper 1997 January / Electronic Clipper 1997 January.iso / ideasrc / gallery.dir / 00016_Script_16 < prev    next >
Text File  |  1996-12-16  |  2KB  |  70 lines
  1. on startmovie
  2.   global slider, toolH, toolV, gallery
  3.   set slider = 0
  4.   set the locH of sprite 40 to toolH
  5.   set the locV of sprite 40 to toolV
  6.   set gallery = "slideshow"
  7. end
  8.  
  9. on stopmovie
  10.   global toolH, toolV
  11.   set toolH = the locH of sprite 40
  12.   set toolV = the locV of sprite 40
  13. end
  14.  
  15. on pressit button
  16.   puppetsound "clickdn"
  17.   repeat while the mousedown
  18.     set the visible of sprite button to false
  19.     updatestage
  20.   end repeat
  21.   set the visible of sprite button to true
  22.   puppetsound "clickup"
  23. end
  24.  
  25. on tools
  26.   --go the frame
  27.   repeat with n = 41 to 46
  28.     puppetsprite n, true
  29.   end repeat
  30.   repeat with n = 41 to 46
  31.     set the locV of sprite n to the locV of sprite 40 + 26
  32.   end repeat
  33.   set the locH of sprite 41 to the locH of sprite 40 
  34.   set the locH of sprite 42 to the locH of sprite 40 - 86
  35.   set the locH of sprite 43 to the locH of sprite 40 - 48
  36.   set the locH of sprite 44 to the locH of sprite 40 - 3
  37.   set the locH of sprite 45 to the locH of sprite 40 + 41
  38.   set the locH of sprite 46 to the locH of sprite 40 + 82
  39.   updatestage
  40. end tools
  41.  
  42. on rollem
  43.   if rollover (2) then go frame "b"
  44.   if rollover (3) then go frame "a"
  45.   if rollover (4) then go frame "s"
  46.   if rollover (5) then go frame "g"
  47.   if rollover (6) then go frame "i"
  48.   if rollover (7) then go frame "c"
  49. end
  50.  
  51.  
  52. on keyDown 
  53.   if the key = 1 then set the soundLevel to (1)
  54.   if the key = 2 then set the soundLevel to (2)
  55.   if the key = 3 then set the soundLevel to (3)
  56.   if the key = 4 then set the soundLevel to (4)
  57.   if the key = 5 then set the soundLevel to (5)
  58.   if the key = 6 then set the soundLevel to (6)
  59.   if the key = 7 then set the soundLevel to (7)
  60.   if the key = "S" then
  61.     if the volume of sound 2 = 0 then
  62.       set the volume of sound 2 to the soundlevel * 36
  63.     else set the volume of sound 2 to 0
  64.   end if
  65. end keydown
  66.  
  67.  
  68.  
  69.  
  70.